5 PRINT"[147][154]    BASIC FOR BEGINNERS - PROGRAM 2":POKE53280,0:POKE53281,0
6 PRINTSPC(6)"PRESS A KEY TO HEAR EXAMPLE[146]"
7 GET D$:IF D$="" THEN 7
10 M=256:D=10:REM MULTIPLIER AND DURATION
20 J=54272:FOR K=J TO J+23:POKE K,0:NEXT:REM CLEAR SOUND CHIP
30 POKE J+24,15:REM FULL VOLUME
40 POKE J+3,8:REM VOICE 1 SQUARE WAVE
50 POKE J+5,15:POKE J+6,12:REM VOICE 1 ENVELOPE
60 READ X
70 X1=INT(X/M):X2=X-X1*M:REM CALCULATE POKEABLE FREQUENCY VALUES
80 POKE J+1,X1:POKE J,X2:REM VOICE 1 FREQUENCY VALUES
90 POKE J+4,65:REM TURN NOTE ON
100 T=TI+D:REM READ TI, ADD DURATION
110 IF TI<>T THEN 110:REM LOOP UNTIL NEW TI = SUM OF OLD TI + DURATION
120 POKE J+4,64:IF X=0 THEN END:REM TURN NOTE OFF
130 GOTO 60:REM GO BACK FOR ANOTHER NOTE
1000 DATA 4291,4817,5407,5728,6430,7217,8101,8583,0:REM FROM PROG. REF. GUIDE